Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_91 / frograce / frograce.bas (.txt) < prev

Wrap

Atari STOS Basic | 1987-04-21 | 172KB | 525 lines

1 REM **************************** **** ------------- **** ** | FROG-RACE | ** * ------------- * * * * BY * * * * JAN ┬ÅKE HOLMGREN * * * ** 15/2 1989 ** **** **** **************************** 10 MODE 1000 REM * * **** bet on 1 frog **** * * 10000 REM ******* WINNERS ON F-5 ******* * * 10010 GET PALETTE 10020 WINDOPEN 1003 WINDOPEN 10030 TITLE 10040 WINDOW 10050 PEN 1006 WINDOPEN 10060 FOR 10070 FOR 10080 VARNAME 1009 WINDOPEN 10090 VARNAME 10100 VARNAME 10110 PEN 10120 LOCATE 10130 PEN 10140 FOR 1015 VARNAME 10150 VARNAME 10160 IF 10170 FOR 1018 FOR 10180 VARNAME 10190 IF 10200 NEXT 10205 UNDER 1021 WINDOW 10210 IF 1022 TITLE 10220 IF 10230 IF 1024 TITLE 10240 IF 10250 NEXT 10260 LOCATE 1027 IF 10290 WAIT KEY 1030 FOR 10300 FADE 10310 RETURN 1033 LOCATE 1036 FOR 1037 NEXT 1038 NEXT 1039 WINDOW 1040 IF 1042 IF 1045 CLEAR KEY 1050 INPUT 1051 IF 1053 IF 1054 GOTO 1055 CLW 1057 INPUT 1058 IF 1060 CLW 1062 INPUT 1065 IF 1070 VARNAME 1097 NEXT 1098 MUSIC 1099 RETURN 1100 IF 1102 GOTO 1105 MOVE X 1110 ANIM 1120 MOVE 1130 VARNAME 1135 VARNAME 1140 VARNAME 1145 VARNAME 1150 RETURN 1200 IF 1202 GOTO 1205 MOVE X 1210 ANIM 1220 MOVE 1230 VARNAME 1235 VARNAME 1240 VARNAME 1245 VARNAME 1250 RETURN 130 DIM 1300 IF 13000 OPEN IN 13005 DIM 13010 FOR 1302 GOTO 13020 INPUT 13030 VARNAME 13040 NEXT 1305 MOVE X 13050 CLOSE 1310 ANIM 1320 MOVE 1330 VARNAME 1335 VARNAME 1340 VARNAME 1345 VARNAME 1350 RETURN 140 RESTORE 1400 IF 1402 GOTO 1405 MOVE X 1410 ANIM 1420 MOVE 1430 VARNAME 1435 VARNAME 1440 VARNAME 1445 VARNAME 1450 RETURN 150 FOR 1500 IF 1502 GOTO 1505 MOVE X 1510 ANIM 1520 MOVE 1530 VARNAME 1535 VARNAME 1540 VARNAME 1545 VARNAME 1550 RETURN 160 FOR 1600 IF 1602 GOTO 1605 MOVE X 1610 ANIM 1620 MOVE 1630 VARNAME 1635 VARNAME 1640 VARNAME 1645 VARNAME 1650 RETURN 170 READ 180 NEXT 185 FADE 187 GOSUB 190 GOSUB 2 REM 200 DIM 2000 FADE 20000 DATA 20010 DATA 20020 DATA 20030 DATA 20040 DATA 2010 CLS 2020 FOR 2030 FOR 2040 IF 2050 NEXT 2052 FOR 2054 VARNAME 2056 NEXT 2060 SCREEN COPY 2070 SCREEN COPY 2080 GET PALETTE 2085 VARNAME 2090 MUSIC 2100 SPRITE 2110 LIMIT SPRITE 2120 SPRITE 2130 PUT SPRITE 2140 LIMIT SPRITE 215 REM ********* MAIN LOOP *********** * * 2150 SPRITE 2160 PUT SPRITE 2170 LIMIT SPRITE 2180 SPRITE 2190 PUT SPRITE 220 FOR 2200 WAIT 2205 VARNAME 2210 FOR 2212 VARNAME 2216 NEXT 2228 LIMIT SPRITE 2229 FADE 2230 RETURN 230 GET PALETTE 240 GOSUB 250 GOSUB 2500 REM **** SAVE FROGPLAC. **** * * 2510 OPEN OUT 2520 FOR 2530 VARNAME 2540 PRINT 2550 NEXT 2560 CLOSE 260 GOSUB 270 SCREEN COPY 280 SCREEN COPY 290 FOR 3 REM 300 SPRITE 3000 REM ****************** 3001 REM * change palette * 3002 REM ****************** 3010 GET PALETTE 3020 IF 3030 IF 3040 IF 3050 IF 3090 RETURN 310 WAIT 320 GOSUB 330 SPRITE 340 SPRITE 350 SPRITE 360 SPRITE 370 SPRITE 380 SPRITE 390 SPRITE 4 REM 400 GOSUB 4000 REM ***** WINNERS ***** * * 4010 MODE 4020 WINDOPEN 4030 UNDER 4040 WINDOW 4045 MUSIC 405 GOSUB 4050 VARNAME 4060 VARNAME 4070 VARNAME 4080 VARNAME 4090 VARNAME 4095 VARNAME 410 WAIT 4180 LOCATE 4190 UNDER 420 SPRITE 4200 FOR 4205 IF 4210 IF 4213 IF 4216 IF 4220 IF 4221 IF 4223 IF 4225 PRINT 4230 NEXT 4235 CLEAR KEY 4240 LOCATE 4250 FOR 4290 WAIT KEY 4295 FADE 430 VARNAME 4300 RETURN 440 SPRITE 450 BOOM 4500 REM ******** 2nd SCREEN ******** * * 4510 MENU$ 4520 FADE 4530 PEN 4540 WINDOW 4550 TITLE 4560 UNDER 4580 LOCATE 4590 LOCATE 460 VARNAME 4600 CENTRE 4610 PEN 4620 CENTRE 4630 LOCATE 4635 PEN 4637 CENTRE 4640 UNDER 470 IF 480 IF 490 IF 4999 WAIT KEY 50 HIDE 500 IF 5000 REM 5010 SPRITE 5020 MOVE Y 5030 RETURN 510 IF 520 IF 530 IF 540 VARNAME 550 VARNAME 5500 SPRITE 5510 MOVE Y 5520 RETURN 560 MOVE X 570 IF 5700 SPRITE 5710 SPRITE 5720 RETURN 580 FOR 590 VARNAME 600 VARNAME 6000 SPRITE 6010 MOVE X 6090 RETURN 610 NEXT 620 VARNAME 630 VARNAME 640 IF 650 IF 6500 REM * * ***** CALC. FORM ***** * * 6510 FOR 6520 VARNAME 6530 VARNAME 6540 VARNAME 6550 VARNAME 6560 VARNAME 6562 VARNAME 6563 IF 6564 IF 6565 IF 6570 VARNAME 6580 NEXT 6590 RETURN 660 ON 670 GOSUB 6700 REM **** Another Game ? **** * * 6710 CLS 6720 PALETTE 6730 WINDOW 6740 CENTRE 6745 CLEAR KEY 6750 VARNAME 6760 IF 6762 IF 6765 GOTO 6770 CLW 6775 CENTRE 6776 MUSIC 6780 FOR 6782 TEMPO 6784 NEXT 6786 FADE 6790 WINDEL 6795 CLS 680 GOTO 6800 PEN 6810 WINDOW 6820 PEN 6830 PEN 6840 PEN 6850 FADE 6855 FLASH 690 REM ***** F I N I S H ****** 6999 GOTO 70 FLASH 700 MUSIC 7000 VARNAME 7010 IF 7020 IF 7030 VARNAME 7040 IF 7050 IF 7060 RETURN 710 GOSUB 715 GOSUB 720 VARNAME 730 FOR 740 NEXT 745 IF 7500 REM ******** END OF DAY ******* * * 7510 GET PALETTE 7520 WINDOPEN 7530 TITLE 7540 WINDOW 7545 IF 755 GOSUB 7550 FOR 7560 FOR 7570 IF 7590 NEXT 760 GOTO 7670 VARNAME 7680 FOR 7690 LOCATE 7695 INC 7700 NEXT 7705 GOSUB 7707 CLEAR KEY 7710 LOCATE 7990 WAIT KEY 800 WINDOW 8000 REM *** NAME ON PLAYERS *** * * 8010 CLS 802 CLW 8030 PAPER 804 FOR 8040 WINDOW 8050 WINDOPEN 806 PRINT 8060 WINDOW 8070 PEN 8075 CLEAR KEY 808 VARNAME 8080 PRINT 8090 INPUT 810 PEN 8100 IF 8110 CLW 812 UNDER 8120 DIM 8130 FOR 8135 CLEAR KEY 814 PEN 8140 PRINT 8150 INPUT 816 NEXT 8160 IF 8170 VARNAME 818 RETURN 8180 CLW 8190 NEXT 8200 FADE 8210 WINDEL 8220 FOR 8230 FOR 8240 MODE 8250 FOR 8260 GOSUB 8270 WINDOPEN 8280 WINDOW 8285 IF 8290 PRINT 8295 CLEAR KEY 8300 PRINT 8310 INPUT 8320 IF 8330 IF 8340 NEXT 8350 MODE 8360 RETURN 8370 PALETTE 8380 WINDOPEN 8390 REM 8400 WINDOW 8405 UNDER 8410 FOR 8415 FOR 8420 PRINT 8430 VARNAME 8440 FOR 8450 FOR 8460 PRINT 8470 VARNAME 8490 UNDER 8510 NEXT 8520 VARNAME 8530 HOME 8540 NEXT 8550 RETURN 8560 WINDOPEN 8570 PAPER 8580 WINDOPEN 8590 WINDOW 8600 PRINT 8610 FOR 8620 PRINT 8630 IF 8640 NEXT 8650 VARNAME 8660 LOCATE 8670 GOSUB 8680 WINDOPEN 8690 WINDOW 8700 CLW 8710 CENTRE 8720 CENTRE 8730 CENTRE 8740 CENTRE 8750 WINDOW 8760 VARNAME 8770 IF 8780 IF 8790 IF 8800 IF 8810 IF 8820 IF 8830 GOTO 8840 FADE 8850 VARNAME 8860 IF 8870 IF 8880 LOCATE 8890 GOSUB 8900 RETURN 8910 VARNAME 8920 IF 8930 IF 8940 LOCATE 8950 GOSUB 8960 RETURN 8970 VARNAME 8980 GOSUB 8990 LOCATE 90 GOSUB 9000 GOSUB 9010 RETURN 9020 REM 9030 LOCATE 9040 VARNAME 9050 LOCATE 9060 IF 9070 IF 9080 PEN 9090 RETURN 9100 IF 9110 IF 9120 RETURN 9130 WINDOW 9140 PAPER 9150 FOR 9160 PRINT 9170 VARNAME 9180 UNDER 9190 PRINT 9200 UNDER 9210 NEXT 9220 RETURN